function cellra = getcellra(ExpID,roiID, idxbasestart, idxbasestop, idxstimstart, idxstimstop)
stimactivity  = getcellstimactivity(ExpID,roiID);
stimactsize = size(stimactivity);
cellra = zeros(stimactsize(1:3));
for ieye = 1:size(cellra,1)
    for iori = 1:size(cellra,2)
        for irep = 1:size(cellra,3)
            cellra(ieye,iori,irep) = respamp(stimactivity(ieye,iori,irep,:), idxbasestart, idxbasestop, idxstimstart, idxstimstop);
        end
    end
end
